library(shiny)
shinyServer(
  function(input,output){
    
    output$sum <- renderPrint({
      summary(iris)
    })
    
    output$str <- renderPrint({
      str(iris)
    })
    
    ## out put data infromation
    output$data <- renderTable({
      colm <-  as.numeric(input$var)
      iris[colm]
      
    })
    
    output$myhist <- renderPlot({
      colm <- as.numeric(input$var)
      hist(iris[,colm],breaks= seq(0, max(iris[,colm], l = input$bins+1)),
           col = input$color
      )
    })
    
  }
)